conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cleaned up some stale primitive names.

This commit is contained in:
Abdulaziz Ghuloum 2008-05-01 18:13:11 -04:00
parent db70f9751f
commit d87ced74d1
5 changed files with 8 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scheme/ikarus.io.ss
View File

@ -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)

2
scheme/ikarus.not-yet-implemented.ss
View File

@ -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

4
scheme/ikarus.writer.ss
View File

@ -544,13 +544,13 @@
[(output-port? x)
(write-char* "#<output-port " p)
(write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
(let ([i (writer (output-port-name x) p #t h i)])
(let ([i (writer (port-id x) p #t h i)])
(write-char #\> p)
i)]
[(input-port? x)
(write-char* "#<input-port " p)
(write-char* (if (binary-port? x) "(binary) " "(textual) ") p)
(let ([i (writer (input-port-name x) p #t h i)])
(let ([i (writer (port-id x) p #t h i)])
(write-char #\> p)
i)]
[(vector? x)

2
scheme/last-revision
View File

@ -1 +1 @@
1461
1462

24
scheme/makefile.ss
View File

@ -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))))])))