Changeset 178 for trunk/thune/mkboot.t

Timestamp:

06/10/06 00:38:50 (3 years ago)

Author:

krobillard

Message:

Thune -

Reduce now evaluates blocks.
Added 'to-text and 'console.out. Print & prin are now functions.
Fixed un-initialized word.valBlks.

Files:

• trunk/thune/mkboot.t (modified) (2 diffs)

trunk/thune/mkboot.t

@@ -84 +84 @@
 func :foreach       ; (ser words body -- )
 
+[reduce to-text console.out] proc :prin  ;(val -- )
+
+[reduce to-text console.out eol console.out] proc :print   ;(val -- )
+
 [error! swap make throw] proc :error
 [swap context bind proc] proc :proc.env      ;(env body -- proc)
@@ -110 +114 @@
     [
         :tok to eol tok: skip
-            (tok tail? iff ({  "} prin tok nop prin {\n"} print))
+            (tok tail? iff ({  "} prin tok prin {\n"} print))
     ]
     parse.some drop