sjs/lake
1
0
Fork 0
mirror of https://github.com/samsonjs/lake.git synced 2026-03-25 08:55:49 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

add stdlib with little schemer stuff

Browse source
This commit is contained in:
Sami Samhuri 2011-04-20 16:11:37 -07:00
parent ccab787366
commit 3015167a30
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
stdlib.scm Normal file
View file

@ -0,0 +1,6 @@
; for The Little Schemer
(define atom? (lambda (x) (and (not (pair? x)) (not (null? x)))))
(define add1 (lambda (x) (+ x 1)))
(define sub1 (lambda (x) (- x 1)))
(define zero? (lambda (x) (= x 0)))