From 30a5b82f1b98f321d478089ded4730fd3c279b96 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sat, 4 Dec 2021 21:25:34 +0900 Subject: [PATCH] remove debug prints --- lib/string.fs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/string.fs b/lib/string.fs index 3fc1918..258ffd4 100644 --- a/lib/string.fs +++ b/lib/string.fs @@ -3,13 +3,12 @@ ( === String === ) -." HELLO " cr private{ \ Heap-allocated string object \ p: null terminated string : make-string ( p -- str ) - dup strlen 1 + allocate throw tuck strcpy .s + dup strlen 1 + allocate throw tuck strcpy ; export : release-string ( str -- ) free ; export