]> gitweb.factorcode.org Git - factor.git/commitdiff
parser.notes: Use `if` instead of `drop` after
authorDoug Coleman <doug.coleman@gmail.com>
Sat, 28 Jan 2023 04:33:11 +0000 (22:33 -0600)
committerDoug Coleman <doug.coleman@gmail.com>
Sat, 28 Jan 2023 04:41:03 +0000 (22:41 -0600)
core/parser/notes/notes.factor

index 30715869ba13d9188faa65c3edaf71990845f5c6..17469e27ffa3d84e9f2fe48c676e30d9d551512d 100644 (file)
@@ -9,8 +9,8 @@ SYMBOL: parser-quiet?
 t parser-quiet? set-global
 
 : note. ( str -- )
-    parser-quiet? get [
+    parser-quiet? get [ drop ] [
         current-source-file get [ path>> write ":" write ] when*
         lexer get [ line>> number>string write ": " write ] when*
-        "Note:" print dup print
-    ] unless drop ;
+        "Note:" print print
+    ] if ;