Permalink
Browse files

Fixed more [] uses on Anarki.

  • Loading branch information...
1 parent 2d4cfb3 commit a5c0ad578946bff02977a0e44a910ad019a1f8b6 @rocketnia committed Apr 8, 2012
Showing with 8 additions and 3 deletions.
  1. +3 −1 arc/more-module-stuff.arc
  2. +5 −2 arc/orc/orc.arc
@@ -168,7 +168,9 @@
`(let nmap (table)
(w/global my nspace.nmap
(tldo ,@body))
- (pack-nmap:copy nmap ,@(mappend [do `(',_ nil)] names))))
+ ; NOTE: In Anarki, [do `(',_ nil)] is nullary because of the
+ ; quote.
+ (pack-nmap:copy nmap ,@(mappend (fn (_) `(',_ nil)) names))))
; originally from modules/path.arc
View
@@ -37,7 +37,9 @@
(=mc my.def-inherits (subtype . supertypes)
`(,my!fn-def-inherits
- ,@(map [do `',deglobalize._] (cons subtype supertypes))))
+ ; NOTE: In Anarki, [do `',deglobalize._] is nullary thanks to the
+ ; quote.
+ ,@(map (fn (_) `',deglobalize._) (cons subtype supertypes))))
(=fn my.isinstance (x test-type)
(my.inherits my.otype.x test-type))
@@ -59,7 +61,8 @@
; types, such as Java objects and tables with their 'type fields set.
(=fn my.otype (x)
(case x nil my!niltype
- (on-err [do my!any] (fn () type.x))))
+ ; NOTE: In Anarki, [do my!any] is nullary.
+ (on-err (fn (_) my!any) (fn () type.x))))
; == A mechanism for rules which dispatch lexicographically by type ==

0 comments on commit a5c0ad5

Please sign in to comment.