From 2a6a420fdd680ba0d3ff65f0dd5666fbfc9c9911 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 18 Mar 2021 21:18:29 -0700 Subject: [PATCH] syntax: don't mark-top-level-syntax. --- core/syntax/syntax.factor | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor index a2d48456a2..d0797897df 100644 --- a/core/syntax/syntax.factor +++ b/core/syntax/syntax.factor @@ -25,16 +25,8 @@ IN: bootstrap.syntax : define-delimiter ( name -- ) "syntax" lookup-word t "delimiter" set-word-prop ; -! Keep track of words defined by SYNTAX: as opposed to words -! merely generated by define-syntax. -: mark-top-level-syntax ( word -- word ) - dup t "syntax" set-word-prop ; - : define-core-syntax ( name quot -- ) - [ - dup "syntax" lookup-word [ ] [ no-word-error ] ?if - mark-top-level-syntax - ] dip + [ dup "syntax" lookup-word [ ] [ no-word-error ] ?if ] dip define-syntax ; [ @@ -121,9 +113,7 @@ IN: bootstrap.syntax "deprecated" [ last-word make-deprecated ] define-core-syntax "SYNTAX:" [ - scan-new-word - mark-top-level-syntax - parse-definition define-syntax + scan-new-word parse-definition define-syntax ] define-core-syntax "BUILTIN:" [ -- 2.34.1