diff options
| author | Chouser <chouser@n01se.net> | 2015-02-20 02:54:17 -0500 |
|---|---|---|
| committer | Chouser <chouser@n01se.net> | 2015-02-21 13:22:44 -0500 |
| commit | b6607ac70f99ec0e465e3de1d9b397fea9b562ef (patch) | |
| tree | c3e552f39f7b8f5ac509a8c25ba0a95155cf4bff | |
| parent | b254151c2a32203fe1920b4dd1db614ed2b0691b (diff) | |
| download | mal-b6607ac70f99ec0e465e3de1d9b397fea9b562ef.tar.gz mal-b6607ac70f99ec0e465e3de1d9b397fea9b562ef.zip | |
forth: Fix bug in (get nil ...)
| -rw-r--r-- | forth/types.fs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/forth/types.fs b/forth/types.fs index 5028bf3..2c4c8e0 100644 --- a/forth/types.fs +++ b/forth/types.fs @@ -448,7 +448,7 @@ MalNil extend conj ( item nil -- mal-list ) drop MalList/Empty conj ;; extend as-native drop 0 ;; - extend get drop 2drop mal-nil ;; + extend get 2drop ;; extend to-list drop MalList/Empty ;; extend empty? drop mal-true ;; extend mal-count drop 0 MalInt. ;; |