Location: lib, 3 Lines
; Scheme 9 from Empty Space, Function Library ; By Nils M Holm, 2010 ; Placed in the Public Domain ; ; (false object ...) ==> #f ; (id object) ==> object ; (true object ...) ==> #t ; ; (load-from-library "id.scm") ; ; ID returns the object passed to it. ; ; FALSE returns always #F and TRUE returns always #T, no matter which ; values are passed to them. ; ; Example: (true) ==> #t ; (false 1 2 3) ==> #f ; (id 'whatever) ==> whatever (define (id x) x) (define (true . x) #t) (define (false . x) #f)