From d44f31c2218a923d2a5b766ae3d6577aba294d42 Mon Sep 17 00:00:00 2001 From: Chouser Date: Sun, 15 Feb 2015 22:02:48 -0500 Subject: forth: Add step 5 --- forth/types.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'forth/types.fs') diff --git a/forth/types.fs b/forth/types.fs index 1a132be..bf159ad 100644 --- a/forth/types.fs +++ b/forth/types.fs @@ -152,7 +152,7 @@ MalType% deftype MalFalse MalFalse new constant mal-false pxt >name name>string type ." ' extended to type '" obj mal-type @ type-name type - ." '" + ." '" cr 1 throw endif trace if ." Calling '" pxt >name name>string type ." ' on " obj mal-type @ type-name type cr endif -- cgit v1.2.3