artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Add procedure? to base.

Browse source 
* base.mes (procedure?): Move from scm.mes.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-12 22:58:35 +02:00
parent 1bb3d1de11
commit dd271be218
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
base.mes
View file

@ -67,3 +67,9 @@
(define-macro (let bindings . rest) (define-macro (let bindings . rest)
(cons* 'simple-let bindings rest)) (cons* 'simple-let bindings rest))
(define (procedure? p)
(cond ((builtin? p) #t)
((and (pair? p) (eq? (car p) 'lambda)))
((and (pair? p) (eq? (car p) '*closure*)))
(#t #f)))

6
scm.mes
View file

@ -46,12 +46,6 @@
,@body ,@body
(loop ,@(cddar init))))) (loop ,@(cddar init)))))
(define (procedure? p)
(cond ((builtin? p) #t)
((and (pair? p) (eq? (car p) 'lambda)))
((and (pair? p) (eq? (car p) '*closure*)))
(#t #f)))
(define integer? number?) (define integer? number?)
(define (make-list n . x) (define (make-list n . x)