Factor out "CREATE.

larsbrinkhoff · May 16, 2015 · b3f9624 · b3f9624
1 parent 7ae2b5b
commit b3f9624
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/core.fth b/core.fth
@@ -24,7 +24,8 @@ drop
 : dodoes_code   [ ' dodoes >code @ ] literal ;
 : does>     [ ' (does>) ] literal compile,  dodoes_code does, ; compile-only
 : code,   code! cell allot ;
-: create    parse-name header, dodoes_code code,  reveal does> ;
+: "create   header, dodoes_code code,  reveal does> ;
+: create    parse-name "create ;
 
 : postpone,   [ ' literal compile, ' compile, ] literal compile, ;
 \ Same as:    postpone literal  postpone compile, ;

diff --git a/targets/c/meta.fth b/targets/c/meta.fth
@@ -69,9 +69,8 @@ defer number,
 defer t-compile,
 action-of number constant host-number
 
-: (create) ( a u -- )   input>r string-input create r>input ;
 : host-word ( xt a u -- )   get-current >r ['] target set-current
-   (create) , r> set-current  does> @ t-compile, ;
+   "create , r> set-current  does> @ t-compile, ;
 
 : copy   >in @ >r : r> >in !  ' compile, postpone ; ;
 : immediate:   copy immediate ;