From f75392a0514cd481e4d16a254830c21d743905f5 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 13 May 2014 23:14:24 -0400 Subject: [PATCH] Leftover from switch from vectors to lists. --- minimart/gestalt.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/minimart/gestalt.rkt b/minimart/gestalt.rkt index b473146..ff68686 100644 --- a/minimart/gestalt.rkt +++ b/minimart/gestalt.rkt @@ -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))