From 00ef8adbe98bf6bd600f821fceb44ea81c781ef1 Mon Sep 17 00:00:00 2001 From: ekipan Date: Sat, 14 Dec 2024 03:37:03 -0500 Subject: [PATCH 1/3] factor out `aborts` #579 --- forth/base.fs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/forth/base.fs b/forth/base.fs index f7cf338a..95316070 100644 --- a/forth/base.fs +++ b/forth/base.fs @@ -144,12 +144,9 @@ here latest >xt 1+ (to) : .s depth begin ?dup while dup pick . 1- repeat ; -: abort" -postpone if -postpone rvs -postpone ." -postpone cr -postpone abort +: aborts rvs type cr abort ; +: abort" postpone if +postpone s" postpone aborts postpone then ; immediate ( linked list. each element contains @@ -173,7 +170,7 @@ marker ---modules--- \ hides private words hide 1mi hide 2mi hide 23mi hide 3mi hide holdp hide latestxt -hide dodoes +hide dodoes hide aborts .( labels..) include labels .( doloop..) include doloop From 6a0f93be2d77f3640713d895e9cb955d293fbcf3 Mon Sep 17 00:00:00 2001 From: ekipan Date: Sun, 15 Dec 2024 09:54:36 -0500 Subject: [PATCH 2/3] rename to (abort") --- forth/base.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/forth/base.fs b/forth/base.fs index 95316070..16d952f2 100644 --- a/forth/base.fs +++ b/forth/base.fs @@ -144,9 +144,9 @@ here latest >xt 1+ (to) : .s depth begin ?dup while dup pick . 1- repeat ; -: aborts rvs type cr abort ; +: (aborts") rvs type cr abort ; : abort" postpone if -postpone s" postpone aborts +postpone s" postpone (aborts") postpone then ; immediate ( linked list. each element contains @@ -170,7 +170,7 @@ marker ---modules--- \ hides private words hide 1mi hide 2mi hide 23mi hide 3mi hide holdp hide latestxt -hide dodoes hide aborts +hide dodoes hide (aborts") .( labels..) include labels .( doloop..) include doloop From 76ca8f6ff9a6fa5f7d3760e292bd35d9f12fbfbe Mon Sep 17 00:00:00 2001 From: ekipan Date: Sun, 15 Dec 2024 09:55:41 -0500 Subject: [PATCH 3/3] spelling --- forth/base.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/forth/base.fs b/forth/base.fs index 16d952f2..b07c9dc9 100644 --- a/forth/base.fs +++ b/forth/base.fs @@ -144,9 +144,9 @@ here latest >xt 1+ (to) : .s depth begin ?dup while dup pick . 1- repeat ; -: (aborts") rvs type cr abort ; +: (abort") rvs type cr abort ; : abort" postpone if -postpone s" postpone (aborts") +postpone s" postpone (abort") postpone then ; immediate ( linked list. each element contains @@ -170,7 +170,7 @@ marker ---modules--- \ hides private words hide 1mi hide 2mi hide 23mi hide 3mi hide holdp hide latestxt -hide dodoes hide (aborts") +hide dodoes hide (abort") .( labels..) include labels .( doloop..) include doloop