12 lines
215 B
Scheme
12 lines
215 B
Scheme
|
; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees. See file COPYING.
|
||
|
|
|
||
|
|
|
||
|
|
(define (%unspecific)
|
||
|
|
(if #f #f))
|
||
|
|
|
||
|
|
(define (!= x y)
|
||
|
|
(not (= x y)))
|
||
|
|
|
||
|
|
(define (%tuple . rest)
|
||
|
|
(list->vector (cons 'tuple rest)))
|