← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/edwin/tterm.scm

  • Committer: Bazaar Package Importer
  • Author(s): Chris Hanson
  • Date: 2010-03-10 02:00:45 UTC
  • mfrom: (1.1.7 upstream) (3.1.6 sid)
  • Revision ID: james.westby@ubuntu.com-20100310020045-4np1y3ro6sk2oz92
Tags: 9.0.1-1
* New upstream.
* debian/watch: Fix, previous version was broken.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/edwin/tterm.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: tterm.scm,v 1.46 2008/01/30 20:02:06 cph Exp $
4
 
 
5
3
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
6
4
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7
 
    2006, 2007, 2008 Massachusetts Institute of Technology
 
5
    2006, 2007, 2008, 2009, 2010 Massachusetts Institute of Technology
8
6
 
9
7
This file is part of MIT/GNU Scheme.
10
8
 
514
512
(define (console-wrap-update! screen thunk)
515
513
  screen
516
514
  (let ((finished? (thunk)))
 
515
    (window-direct-output-cursor! (screen-cursor-window screen))
517
516
    (output-port/flush-output console-i/o-port)
518
517
    finished?))
519
518
 
1039
1038
                     (if scroll-region
1040
1039
                         (cdr scroll-region)
1041
1040
                         (tn-y-size (screen-description screen))))
1042
 
                   (screen-cursor-y screen))))
 
1041
                   (or (screen-cursor-y screen) 0))))
1043
1042
 
1044
1043
(define-integrable (output-1 screen command)
1045
1044
  (output-n screen command 1))