21 lines
318 B
Text
21 lines
318 B
Text
|
; -*- mode: scheme -*-
|
||
|
|
|
||
|
|
(define +
|
||
|
|
(lambda (x y)
|
||
|
|
(py "lambda x, y: x + y" [x y] [])))
|
||
|
|
|
||
|
|
(define format
|
||
|
|
(lambda (&args)
|
||
|
|
(py "lambda fmt, *args: fmt % args" [fmt] &args)))
|
||
|
|
|
||
|
|
(define print
|
||
|
|
(lambda (&args)
|
||
|
|
(py "print" [] &args)))
|
||
|
|
|
||
|
|
(define add2
|
||
|
|
(lambda (x)
|
||
|
|
(+ (2 x))))
|
||
|
|
|
||
|
|
(print
|
||
|
|
(format "%d" (add2 2)))
|