From 2d8c79f3867dfd1673ce381452805d942923ea45 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 10 Dec 2009 19:39:15 -0500 Subject: [PATCH] Use PRIMITIVE-OBJECT-SET-TYPE, not OBJECT-SET-TYPE, in EOF-OBJECT. Neither is constant-folded, but PRIMITIVE-OBJECT-SET-TYPE is open-coded while OBJECT-SET-TYPE is not. (Is there a reason for this? An artefact of Multischeme?) --- src/runtime/input.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/runtime/input.scm b/src/runtime/input.scm index 966c06e76..297c0bad8 100644 --- a/src/runtime/input.scm +++ b/src/runtime/input.scm @@ -117,15 +117,15 @@ USA. (define-integrable (accum-count a) (cdr a)) -(define (make-eof-object port) +(define-integrable (make-eof-object port) port (eof-object)) -(define (eof-object) - (object-new-type (ucode-type constant) 6)) +(define-integrable (eof-object) + ((ucode-primitive primitive-object-set-type) (ucode-type constant) 6)) -(define (eof-object? object) - (eq? object (object-new-type (ucode-type constant) 6))) +(define-integrable (eof-object? object) + (eq? object (eof-object))) (define (input-port/eof? port) (let ((eof? (port/operation port 'EOF?))) -- 2.25.1