diff options
Diffstat (limited to 'prelude/primitives.scm')
| -rw-r--r-- | prelude/primitives.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/prelude/primitives.scm b/prelude/primitives.scm index cd7f1bf..ad1584d 100644 --- a/prelude/primitives.scm +++ b/prelude/primitives.scm | |||
| @@ -45,12 +45,20 @@ | |||
| 45 | (> . ,(lift-bool >)) | 45 | (> . ,(lift-bool >)) |
| 46 | (<= . ,(lift-bool <=)) | 46 | (<= . ,(lift-bool <=)) |
| 47 | (>= . ,(lift-bool >=)) | 47 | (>= . ,(lift-bool >=)) |
| 48 | (= . ,(lift-bool =)) | ||
| 48 | (eq? . ,(lift-bool eq?)) | 49 | (eq? . ,(lift-bool eq?)) |
| 49 | (&& . ,and-special) | 50 | (&& . ,and-special) |
| 50 | (|| . ,or-special) | 51 | (|| . ,or-special) |
| 51 | (/= . ,not-fn) | 52 | (/= . ,not-fn) |
| 52 | (first . ,car) | 53 | (first . ,car) |
| 53 | (rest . ,cdr))) | 54 | (second . ,cadr) |
| 55 | (third . ,caddr) | ||
| 56 | (fourth . ,cadddr) | ||
| 57 | (rest . ,cdr) | ||
| 58 | (cons . ,cons) | ||
| 59 | (list . ,list) | ||
| 60 | (map . ,map) | ||
| 61 | (null? . ,(lift-bool null?)))) | ||
| 54 | 62 | ||
| 55 | (define (primitive-names) (map car primitives)) | 63 | (define (primitive-names) (map car primitives)) |
| 56 | (define (primitive-objs) (map cdr primitives)) | 64 | (define (primitive-objs) (map cdr primitives)) |