TakeV/guile-prescheme
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix override core binding warnings

Browse source
This commit is contained in:
Andrew Whatson 2022-07-18 23:17:03 +10:00
parent 2f42a73946
commit 87ace68d04
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
prescheme/prescheme.scm
View file

@ -30,13 +30,8 @@
errors
error-string
current-error-port
open-input-file open-output-file
close-output-port close-input-port
read-char peek-char read-integer
write-char newline write-string write-integer
force-output
read-integer write-integer
write-string
goto
external
@ -44,7 +39,14 @@
fl+ fl- fl* fl/ fl= fl< fl> fl<= fl>=
un+ un- un* unquotient unremainder un= un< un> un<= un>=
unsigned->integer integer->unsigned))
unsigned->integer integer->unsigned)
#:replace (current-error-port
open-input-file open-output-file
close-output-port close-input-port
read-char peek-char
write-char newline
force-output))
(define shift-left arithmetic-shift)