From d87ced74d186c874b09d9ff272abe3a1eab4da79 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Thu, 1 May 2008 18:13:11 -0400 Subject: [PATCH] cleaned up some stale primitive names. --- scheme/ikarus.io.ss | 14 -------------- scheme/ikarus.not-yet-implemented.ss | 2 +- scheme/ikarus.writer.ss | 4 ++-- scheme/last-revision | 2 +- scheme/makefile.ss | 24 ++++-------------------- 5 files changed, 8 insertions(+), 38 deletions(-) diff --git a/scheme/ikarus.io.ss b/scheme/ikarus.io.ss index 014f3b7..edfd2a9 100644 --- a/scheme/ikarus.io.ss +++ b/scheme/ikarus.io.ss @@ -56,8 +56,6 @@ console-error-port console-input-port newline - input-port-name - output-port-name port-mode set-port-mode! reset-input-port! reset-output-port! @@ -118,8 +116,6 @@ console-input-port console-error-port newline - input-port-name - output-port-name port-mode set-port-mode! reset-input-port! reset-output-port! @@ -232,16 +228,6 @@ (import (ikarus system $fx)) ($fxlogand ($port-tag x) fast-attrs-mask)))) - (define (input-port-name p) - (if (input-port? p) - ($port-id p) - (die 'input-port-name "not an input port" p))) - - (define (output-port-name p) - (if (output-port? p) - ($port-id p) - (die 'output-port-name "not an output port" p))) - (define (port-id p) (if (port? p) ($port-id p) diff --git a/scheme/ikarus.not-yet-implemented.ss b/scheme/ikarus.not-yet-implemented.ss index 005dc97..71a52c0 100644 --- a/scheme/ikarus.not-yet-implemented.ss +++ b/scheme/ikarus.not-yet-implemented.ss @@ -65,7 +65,7 @@ make-custom-textual-input/output-port open-file-input/output-port output-port-buffer-mode port-has-port-position? port-has-set-port-position!? - port-position set-port-position! make-eqv-hashtable + port-position set-port-position! make-eqv-hashtable hashtable-hash-function make-hashtable hashtable-equivalence-function equal-hash string-downcase string-normalize-nfc string-normalize-nfd diff --git a/scheme/ikarus.writer.ss b/scheme/ikarus.writer.ss index a387165..954b9a7 100644 --- a/scheme/ikarus.writer.ss +++ b/scheme/ikarus.writer.ss @@ -544,13 +544,13 @@ [(output-port? x) (write-char* "# p) i)] [(input-port? x) (write-char* "# p) i)] [(vector? x) diff --git a/scheme/last-revision b/scheme/last-revision index 8c4a5f4..ac48d99 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1461 +1462 diff --git a/scheme/makefile.ss b/scheme/makefile.ss index 574fda4..4def73a 100755 --- a/scheme/makefile.ss +++ b/scheme/makefile.ss @@ -197,7 +197,7 @@ [&i/o-invalid-position ($core-rtd . (&i/o-invalid-position-rtd &i/o-invalid-position-rcd ))] [&i/o-filename ($core-rtd . (&i/o-filename-rtd &i/o-filename-rcd))] [&i/o-file-protection ($core-rtd . (&i/o-file-protection-rtd &i/o-file-protection-rcd))] - [&i/o-file-is-read-only ($core-rtd . (&i/o-file-is-read-only-rtd &i/o-fie-is-read-only-rcd ))] + [&i/o-file-is-read-only ($core-rtd . (&i/o-file-is-read-only-rtd &i/o-file-is-read-only-rcd ))] [&i/o-file-already-exists ($core-rtd . (&i/o-file-already-exists-rtd &i/o-file-already-exists-rcd))] [&i/o-file-does-not-exist ($core-rtd . (&i/o-file-does-not-exist-rtd &i/o-file-does-not-exist-rcd))] [&i/o-port ($core-rtd . (&i/o-port-rtd &i/o-port-rcd))] @@ -328,21 +328,6 @@ [top-level-value i symbols] [reset-symbol-proc! i symbols] [make-guardian i] - [make-input-port i] - [make-output-port i] - [port-output-index i] - [port-output-size i] - [port-output-buffer i] - [set-port-output-index! i] - [set-port-output-size! i] - [port-input-buffer i] - [port-input-index i] - [port-input-size i] - [set-port-input-index! i] - [set-port-input-size! i] - [port-name i] - [input-port-name i] - [output-port-name i] [port-mode i] [set-port-mode! i] [with-input-from-string i] @@ -357,7 +342,6 @@ [console-output-port i] [reset-input-port! i] [reset-output-port! i] - [write-byte i] [read-token i] [printf i] [fprintf i] @@ -386,7 +370,6 @@ [time-nanosecond i] [command-line-arguments i] [set-rtd-printer! i] - [make-record-type i] [struct? i] [make-struct-type i] [struct-type-name i] @@ -1379,8 +1362,8 @@ [&i/o-filename-rcd] [&i/o-file-protection-rtd] [&i/o-file-protection-rcd] - [&i/o-fie-is-read-only-rtd] - [&i/o-fie-is-read-only-rcd] + [&i/o-file-is-read-only-rtd] + [&i/o-file-is-read-only-rcd] [&i/o-file-already-exists-rtd] [&i/o-file-already-exists-rcd] [&i/o-file-does-not-exist-rtd] @@ -1517,6 +1500,7 @@ [else ;;; core primitive with no backing definition, assumed to ;;; be defined in other strata of the system + ;(printf "undefined primitive ~s\n" x) (let ([label (gensym)]) (export-subst (cons x label)) (export-env (cons label (cons 'core-prim x))))])))