home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pseudo-s / pseudo_2.lha / examples.scm < prev    next >
Encoding:
Text File  |  1991-06-21  |  450 b   |  24 lines
  1.  
  2. #||
  3. (define e (scheme-translator:make-program-env
  4.        'foo
  5.        (list scheme-translator:revised^4-scheme-module)))
  6. (schi:translate-file "examples" e)
  7. ||#
  8.  
  9.  
  10. (define foo 12)
  11.  
  12. (define (bar)
  13.   (list foo (let ((foo 12)) (lambda () foo))))
  14.  
  15. (define (mumble)
  16.   (let ((f (lambda (g) (g 7))))
  17.     (list f (f list))))
  18.  
  19. (define (rassq obj lst)
  20.   (let loop ((lst lst))
  21.     (cond ((null? lst) #f)
  22.       ((eq? obj (cdar lst)) (car lst))
  23.       (else (loop (cdr lst))))))
  24.