diff options
| author | Chouser <chouser@n01se.net> | 2015-02-15 14:10:47 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-02-21 13:22:44 -0500 |
| commit | 136ce7c9afb5e103133fe6e423e6dad3d23db38d (patch) | |
| tree | c317f90935a7ef0e65abd41122adfaa7576bb831 /forth/printer.fs | |
| parent | 60801ed68d5b2c6630c83883de150ccce98767f9 (diff) | |
| download | mal-136ce7c9afb5e103133fe6e423e6dad3d23db38d.tar.gz mal-136ce7c9afb5e103133fe6e423e6dad3d23db38d.zip | |
forth: Split types for user fns vs native fns
Diffstat (limited to 'forth/printer.fs')
| -rw-r--r-- | forth/printer.fs | 14 |
1 files changed, 3 insertions, 11 deletions
diff --git a/forth/printer.fs b/forth/printer.fs index 39ddb8e..0474944 100644 --- a/forth/printer.fs +++ b/forth/printer.fs @@ -62,7 +62,9 @@ def-protocol-method pr-pairs-buf ( str-addr str-len this -- str-addr str-len ) MalDefault extend pr-buf { this } - s" #<MalObject" str-append a-space + s" #<" str-append + this mal-type @ type-name str-append + a-space this int>str str-append s" >" str-append ;; drop @@ -117,16 +119,6 @@ MalInt MalInt/int @ int>str str-append ;; drop -MalFn - extend pr-buf - drop s" #<fn>" str-append ;; -drop - -SpecialOp - extend pr-buf - drop s" #<op>" str-append ;; -drop - MalSymbol extend pr-buf unpack-sym str-append ;; |