diff --git a/core/bootstrap/syntax.factor b/core/bootstrap/syntax.factor index 19a234319d..74cc2a0a8e 100644 --- a/core/bootstrap/syntax.factor +++ b/core/bootstrap/syntax.factor @@ -127,6 +127,14 @@ IN: bootstrap.syntax "[=====[" "[======[" + "factor[[" + "factor[=[" + "factor[==[" + "factor[===[" + "factor[====[" + "factor[=====[" + "factor[======[" + "![[" "![=[" "![==[" diff --git a/core/factor/authors.txt b/core/factor/authors.txt new file mode 100644 index 0000000000..7c1b2f2279 --- /dev/null +++ b/core/factor/authors.txt @@ -0,0 +1 @@ +Doug Coleman diff --git a/core/factor/factor.factor b/core/factor/factor.factor new file mode 100644 index 0000000000..611a14c03f --- /dev/null +++ b/core/factor/factor.factor @@ -0,0 +1,6 @@ +! Copyright (C) 2018 Doug Coleman. +! See http://factorcode.org/license.txt for BSD license. +IN: factor + +TUPLE: factor text ; +C: factor \ No newline at end of file diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor index ac14a858c3..1bfdff0ce1 100644 --- a/core/syntax/syntax.factor +++ b/core/syntax/syntax.factor @@ -5,8 +5,8 @@ classes.algebra.private classes.builtin classes.error classes.intersection classes.maybe classes.mixin classes.parser classes.predicate classes.singleton classes.tuple classes.tuple.parser classes.union combinators compiler.units -definitions delegate delegate.private effects effects.parser fry -functors2 generic generic.hook generic.math generic.parser +definitions delegate delegate.private effects effects.parser factor +fry functors2 generic generic.hook generic.math generic.parser generic.standard hash-sets hashtables hashtables.identity hints init interpolate io.pathnames kernel lexer locals.errors locals.parser locals.types macros math memoize multiline @@ -396,6 +396,14 @@ IN: bootstrap.syntax { "_" "@" } define-fry-specifiers + "factor[[" [ "]]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[=[" [ "]=]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[==[" [ "]==]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[===[" [ "]===]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[====[" [ "]====]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[=====[" [ "]=====]" parse-multiline-string0 suffix! ] define-core-syntax + "factor[======[" [ "]======]" parse-multiline-string0 suffix! ] define-core-syntax + "[[" [ "]]" parse-multiline-string0 suffix! ] define-core-syntax "[=[" [ "]=]" parse-multiline-string0 suffix! ] define-core-syntax "[==[" [ "]==]" parse-multiline-string0 suffix! ] define-core-syntax