From 6e87c8ad26b94d6696eec3f3d41dbf8aaac99985 Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Sun, 25 Aug 2019 21:30:36 +0300 Subject: [PATCH] Remove unused get-datum and put-datum procedures --- scheme-boot/boot_image.h | 2 +- scheme-core/aliases.scm | 5 ----- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/scheme-boot/boot_image.h b/scheme-boot/boot_image.h index 2e79ff1..cb1821d 100644 --- a/scheme-boot/boot_image.h +++ b/scheme-boot/boot_image.h @@ -1041,7 +1041,7 @@ char boot_image[] = "" "\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" "\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" "\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" diff --git a/scheme-core/aliases.scm b/scheme-core/aliases.scm index f129068..0f175d1 100644 --- a/scheme-core/aliases.scm +++ b/scheme-core/aliases.scm @@ -139,11 +139,6 @@ ; TODO 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-string port s (start 0) (count #f)) (let* ((start (string.inc s 0 start))