conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add some missing numeric functions

This commit is contained in:
Yuichi Nishiwaki 2013-10-29 02:50:12 +09:00
parent 15fdbc9c7d
commit 6d606e84e0
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
piclib/built-in.scm
View File

@ -1,3 +1,12 @@
(define (zero? n)
(= n 0))
(define (positive? x)
(> x 0))
(define (negative? x)
(< x 0))
(define (caar p) (define (caar p)
(car (car p))) (car (car p)))