lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove unused get-datum and put-datum procedures

This commit is contained in:
Lassi Kortela 2019-08-25 21:30:36 +03:00
parent 8fb0cbf472
commit 6e87c8ad26
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme-boot/boot_image.h
View File

@ -1041,7 +1041,7 @@ char boot_image[] = ""
"\x72\x20\x6c\x61\x6d\x62\x64\x61\x2d\x76\x61\x72\x73\x20\x66\x69" "\x72\x20\x6c\x61\x6d\x62\x64\x61\x2d\x76\x61\x72\x73\x20\x66\x69"
"\x6c\x74\x65\x72\x20\x23\x2e\x70\x61\x69\x72\x3f\x0a\x20\x20\x6c" "\x6c\x74\x65\x72\x20\x23\x2e\x70\x61\x69\x72\x3f\x0a\x20\x20\x6c"
"\x61\x6d\x62\x64\x61\x5d\x29\x5d\x20\x23\x33\x3d\x5b\x23\x3a\x67" "\x61\x6d\x62\x64\x61\x5d\x29\x5d\x20\x23\x33\x3d\x5b\x23\x3a\x67"
"\x37\x39\x34\x20\x28\x29\x5d\x29\x0a\x20\x20\x20\x20\x20\x20\x20" "\x37\x39\x31\x20\x28\x29\x5d\x29\x0a\x20\x20\x20\x20\x20\x20\x20"
"\x20\x20\x20\x63\x6f\x6d\x70\x69\x6c\x65\x2d\x66\x6f\x72\x20\x23" "\x20\x20\x20\x63\x6f\x6d\x70\x69\x6c\x65\x2d\x66\x6f\x72\x20\x23"
"\x66\x6e\x28\x22\x3a\x30\x30\x30\x72\x35\x65\x30\x67\x34\x33\x31" "\x66\x6e\x28\x22\x3a\x30\x30\x30\x72\x35\x65\x30\x67\x34\x33\x31"
"\x36\x58\x30\x65\x31\x7c\x7d\x5e\x67\x32\x33\x34\x32\x65\x31\x7c" "\x36\x58\x30\x65\x31\x7c\x7d\x5e\x67\x32\x33\x34\x32\x65\x31\x7c"

5
scheme-core/aliases.scm
View File

@ -139,11 +139,6 @@
; TODO ; TODO
1) 1)
(define get-datum read)
(define (put-datum port x)
(with-bindings ((*print-readably* #t))
(write x port)))
(define (put-u8 port o) (io.write port (uint8 o))) (define (put-u8 port o) (io.write port (uint8 o)))
(define (put-string port s (start 0) (count #f)) (define (put-string port s (start 0) (count #f))
(let* ((start (string.inc s 0 start)) (let* ((start (string.inc s 0 start))