repo.or.cz
/
gambit-c.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
history
|
raw
|
HEAD
Add to Gambit REPL some functions to send SMS and take pictures (this functionnality...
[gambit-c.git]
/
doc
/
m2.scm
blob
047069a91fc23dbf6b34cdf328aa08af9536d280
1
;;; File: "m2.scm"
2
(c-declare "extern int power_of_2 ();")
3
(define pow2 (c-lambda (int) int "power_of_2"))
4
(define (twice x) (cons x x))