home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacGambit 2.0 / sources1 / Examples / text-window-demo.scm < prev    next >
Encoding:
Text File  |  1992-10-03  |  712 b   |  14 lines  |  [TEXT/gamI]
  1. ow.
  2.  
  3. (define (pretty obj)
  4.   (let ((p (open-text-window "Pretty")))
  5.     (pp obj p)
  6.     p))
  7.  
  8.  
  9. (define n (query "Enter a number: "))
  10.  
  11. (let ((p (pretty query)))
  12.   (mac#delay 300)
  13.   (close-output-port p))
  14.