#| -*-Scheme-*-
-$Id: bufinp.scm,v 1.15 2007/01/05 21:19:23 cph Exp $
+$Id: bufinp.scm,v 1.16 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(let ((char (group-right-char (bstate-group state) start)))
(set-bstate-start! state (fix:+ start 1))
char)
- (make-eof-object port))))))
+ (eof-object))))))
(WRITE-SELF
,(lambda (port output)
(write-string " from buffer at " output)
#| -*-Scheme-*-
-$Id: imail-rmail.scm,v 1.75 2007/01/05 21:19:25 cph Exp $
+$Id: imail-rmail.scm,v 1.76 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(if (eqv? rmail-message:end-char (peek-char port))
(begin
(read-char port) ;discard
- (make-eof-object port))
+ (eof-object))
(read-required-line port)))))
(define (read-to-eom port)
#| -*-Scheme-*-
-$Id: imail-util.scm,v 1.49 2007/04/01 17:33:07 riastradh Exp $
+$Id: imail-util.scm,v 1.50 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(let ((item (car items)))
(set! items (cdr items))
item)
- (make-eof-object #f))))
+ (eof-object))))
(define (cut-list! items predicate)
(if (or (not (pair? items)) (predicate (car items)))
(if (read-xstring-buffer state)
(loop p)
p)))))))
- (make-eof-object port))))
+ (eof-object))))
(define xstring-input-type
(make-port-type
(- position (istate-buffer-start state)))))
(set-istate-position! state (+ position 1))
char)
- (make-eof-object port))))))
+ (eof-object))))))
(EOF?
,(lambda (port)
(let ((state (port/state port)))
#| -*-Scheme-*-
-$Id: genio.scm,v 1.52 2007/05/01 14:12:52 cph Exp $
+$Id: genio.scm,v 1.53 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(case r
((OK) (loop))
((WOULD-BLOCK) #f)
- ((EOF) (make-eof-object port))
+ ((EOF) (eof-object))
(else (error "Unknown result:" r))))))))
(define (generic-io/read-substring port string start end)
#| -*-Scheme-*-
-$Id: input.scm,v 14.35 2007/06/06 19:42:42 cph Exp $
+$Id: input.scm,v 14.36 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(define (make-eof-object port)
port
+ (eof-object))
+
+(define (eof-object)
(object-new-type (ucode-type constant) 6))
(define (eof-object? object)
(let ((eof? (port/operation port 'EOF?)))
(and eof?
(eof? port)
- (make-eof-object port))))))
+ (eof-object))))))
(define (read-string delimiters #!optional port)
(input-port/read-string (optional-input-port port 'READ-STRING) delimiters))
#| -*-Scheme-*-
-$Id: parse.scm,v 14.66 2007/01/09 06:16:49 cph Exp $
+$Id: parse.scm,v 14.67 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
((string-ci=? name "rest") lambda-rest-tag)
((string-ci=? name "key") lambda-key-tag)
((string-ci=? name "aux") lambda-aux-tag)
- ((string-ci=? name "eof") (make-eof-object #f))
+ ((string-ci=? name "eof") (eof-object))
((string-ci=? name "default") (default-object))
((string-ci=? name "unspecific") unspecific)
(else (error:illegal-named-constant name)))))
#| -*-Scheme-*-
-$Id: runtime.pkg,v 14.619 2007/06/07 15:12:17 cph Exp $
+$Id: runtime.pkg,v 14.620 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
(discard-char read-char)
(input-port/discard-char input-port/read-char)
char-ready?
+ eof-object
eof-object?
input-port/char-ready?
input-port/discard-chars
#| -*-Scheme-*-
-$Id: unicode.scm,v 1.33 2007/05/07 05:32:24 cph Exp $
+$Id: unicode.scm,v 1.34 2007/07/07 17:22:19 cph Exp $
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
`((READ-CHAR
,(lambda (port)
(or ((port/state port))
- (make-eof-object port))))
+ (eof-object))))
(WRITE-SELF
,(lambda (port output-port)
port