20 lines
318 B
Scheme
20 lines
318 B
Scheme
; -*- 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)))
|