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

View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs calendar fry kernel parser sequences
shuffle vocabs words memoize ;
USING: accessors assocs calendar fry kernel locals parser
sequences vocabs words memoize ;
IN: calendar.holidays
SINGLETONS: all world commonwealth-of-nations ;
@ -15,7 +15,8 @@ SYNTAX: HOLIDAY:
parse-definition (( timestamp/n -- timestamp )) define-declared ;
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 )

View File

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