again
;
+:noname ( args -- finalResult )
+ 2dup 1 ensure-arg-count
+ car string-type ensure-arg-type
+
+ drop pair-type
+ pad charlist>cstr
+ pad swap load
+; make-primitive load
+
\ }}}
\ ---- REPL ----
again
;
-: test s" fact.scm" ;
-test load 2drop
-
forth definitions
\ vim:fdm=marker