← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty

« back to all changes in this revision

Viewing changes to src/runtime/usrint.scm

  • Committer: Package Import Robot
  • Author(s): Chris Hanson
  • Date: 2011-10-15 03:08:33 UTC
  • mfrom: (1.1.8) (3.1.7 sid)
  • Revision ID: package-import@ubuntu.com-20111015030833-x7qc6yxuulvxbafv
Tags: 9.1-1
* New upstream.
* debian/control, debian/copyright, debian/mit-scheme-doc.*,
  debian/mit-scheme.install, debian/rules, Upstream has removed cover
  texts from documentation licenses, so merge packages mit-scheme and
  mit-scheme-doc back together.
* debian/compat: Bump to current version.
* debian/control: Bump standards-version to current and make
  necessary changes.
* debian/rules: Fix lintian warnings.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/runtime/usrint.scm
2
2
 
3
3
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
4
4
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
5
 
    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
 
5
    2006, 2007, 2008, 2009, 2010, 2011 Massachusetts Institute of
 
6
    Technology
6
7
 
7
8
This file is part of MIT/GNU Scheme.
8
9
 
311
312
             (fresh-line port)
312
313
             (write-notification-prefix port)
313
314
             (message (wrap-notification-port port))
314
 
             (write-string "... " port)
 
315
             (write-string "..." port)
315
316
             (set! n (output-port/bytes-written port))
316
317
             unspecific))
317
318
         (lambda ()
329
330
                 (begin
330
331
                   (fresh-line port)
331
332
                   (write-notification-prefix port)
332
 
                   (write-string "... " port)))
 
333
                   (write-string "..." port)))
333
334
             (set! n)
334
 
             (write-string (if done? "done" "aborted") port)
 
335
             (write-string (if done? " done" " aborted") port)
335
336
             (newline port)))))))
336
337
 
337
338
(define (wrap-notification-port port)