keccakp shlibs generation

gui.fs

@@ -400,8 +400,6 @@ Variable user-avatar#
 Variable dummy-thumb#
 Variable user.png$
 Variable thumb.png$
-: ]path ( addr u -- )
-    file>fpath ]] SLiteral [[ ] ;
 : read-user.png ( -- )
     [ "doc/user.png" ]path user.png$ $slurp-file ;
 : read-thumb.png ( -- )

shlibs/keccak

-../keccak
\ No newline at end of file

tools.fs

@@ -460,7 +460,7 @@ $1000.0000. patchlimit& 2! \ 256MB patch limit size
 #2.000.000.000. beacon-short-ticks& 2!
 
 : ]path ( addr u -- )
-    open-fpath-file throw rot close-file throw ] ]] sliteral [[ ;
+    file>fpath ]] SLiteral [[ ] ;
 
 : .net2o-config/ ( addr u -- addr' u' ) [: .net2o-config$ $. '/' emit type ;] $tmp ;
 : .net2o-cache/ ( addr u -- addr' u' ) [: .net2o-cache$ $. '/' emit type ;] $tmp ;