steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

holidays.factor: Replaced use of deprecated 'spin' word with locals.

db4
otoburb 2011-03-15 01:51:27 +00:00
parent 4817ba5a93
commit b0baf118af
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/calendar/holidays/holidays.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs calendar fry kernel parser sequences USING: accessors assocs calendar fry kernel locals parser
shuffle vocabs words memoize ; sequences vocabs words memoize ;
IN: calendar.holidays IN: calendar.holidays
SINGLETONS: all world commonwealth-of-nations ; SINGLETONS: all world commonwealth-of-nations ;
@ -15,7 +15,8 @@ SYNTAX: HOLIDAY:
parse-definition (( timestamp/n -- timestamp )) define-declared ; parse-definition (( timestamp/n -- timestamp )) define-declared ;
SYNTAX: HOLIDAY-NAME: SYNTAX: HOLIDAY-NAME:
scan-word "holiday" word-prop scan-word scan-object spin set-at ; [let scan-word "holiday" word-prop :> holidays scan-word :> name scan-object :> value
value name holidays set-at ] ;
>> >>
GENERIC: holidays ( n singleton -- seq ) GENERIC: holidays ( n singleton -- seq )

2
extra/calendar/holidays/us/us.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs calendar calendar.holidays USING: accessors assocs calendar calendar.holidays
calendar.holidays.private combinators combinators.short-circuit calendar.holidays.private combinators combinators.short-circuit
fry kernel lexer math namespaces parser sequences shuffle fry kernel lexer math namespaces parser sequences
vocabs words ; vocabs words ;
IN: calendar.holidays.us IN: calendar.holidays.us