diff --git a/extra/const/const.factor b/extra/const/const.factor deleted file mode 100644 index 8efef7e372..0000000000 --- a/extra/const/const.factor +++ /dev/null @@ -1,24 +0,0 @@ -USING: kernel parser words sequences ; -IN: const - -: define-const ( word value -- ) - [ parsed ] curry dupd define - t "parsing" set-word-prop ; - -: CONST: - CREATE scan-word dup parsing? - [ execute dup pop ] when define-const ; parsing - -: define-enum ( words -- ) - dup length [ define-const ] 2each ; - -: ENUM: - ";" parse-tokens [ create-in ] map define-enum ; parsing - -: define-value ( word -- ) - { f } clone [ first ] curry define ; - -: VALUE: CREATE define-value ; parsing - -: set-value ( value word -- ) - word-def first set-first ;