keccakp shlibs generation

parent e08fd646
......@@ -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 ( -- )
......
../keccak
\ No newline at end of file
......@@ -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 ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment