This Text file is old! In a 🏛️Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

; const1.scm - const combinator 

; the const combinator ignores one of the arguments passed to a function
; ((const x) y)  =  x

(define const
  (lambda (x) (lambda (y) x)))

((const 1) 2) ; 1
((const 2) 1) ; 2