syndicate-lang
/
minimart-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Leftover from switch from vectors to lists.

This commit is contained in:
Tony Garnock-Jones 2014-05-13 23:14:24 -04:00
parent baf0ba9206
commit f75392a051
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
minimart/gestalt.rkt
View File

@ -60,7 +60,7 @@
(cdr xs)))
(define (gestalt-ref g metalevel level get-advertisements?)
(define v (safe-list-ref (gestalt-metalevels g) metalevel (lambda () '#())))
(define v (safe-list-ref (gestalt-metalevels g) metalevel (lambda () '())))
(define p (safe-list-ref v level (lambda () '(#f . #f))))
((if get-advertisements? cdr car) p))