From d7a85fcc562509e64aaf60b0968dec87015a6020 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Sat, 2 Jan 2021 18:01:01 +0900 Subject: [PATCH] Rename string, to cmove, --- bootstrap.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bootstrap.fs b/bootstrap.fs index 8126000..1df0bef 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -188,7 +188,7 @@ c~ i, \ Store byte 'c' to here and increment it cB i, 'h, '@, '$, 'h, '@, 'L, k1k0-, '+, 'h, '!, 'e, l! -\ 'm' ( c-addr u -- ) STRING, +\ 'm' ( c-addr u -- ) CMOVE, \ Copy u bytes from c-addr to here, \ increment here u bytes. cm i, @@ -454,7 +454,7 @@ alias-builtin xor ^ : find F ; : >cfa G ; : c, B ; -: string, m ; +: cmove, m ; : state M ; : here &here @ ; @@ -799,7 +799,7 @@ alias-builtin xor ^ latest , \ fill link here cell- &latest ! \ update latest word - dup c, string, align \ fill length and name + dup c, cmove, align \ fill length and name docol , \ compile docol ['] lit , here 3 cells + , \ compile the address