From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 26 Dec 1997 23:46:41 +0000 (+0000)
Subject: Add code to provide printing on NT.
X-Git-Tag: 20090517-FFI~4915
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8e504c06f7caf4e10b6e98ef250fae1af45ded88;p=mit-scheme.git

Add code to provide printing on NT.
---

diff --git a/v7/src/edwin/print.scm b/v7/src/edwin/print.scm
index 1a1d016d2..85903c989 100644
--- a/v7/src/edwin/print.scm
+++ b/v7/src/edwin/print.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: print.scm,v 1.13 1997/12/26 23:45:28 cph Exp $
+;;;	$Id: print.scm,v 1.14 1997/12/26 23:46:41 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991-97 Massachusetts Institute of Technology
 ;;;
@@ -110,7 +110,7 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
 					   (if print-headers? '("-p") '())))))
 
 (define (print-region/nt region print-headers? title buffer)
-  print-headers? title
+  print-headers? title buffer
   (call-with-temporary-file-pathname
    (lambda (pathname)
      (write-region region pathname #f #t)