From c1c868d9b6ee61002c7ccb33fbc6a15c5b090e6a Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sun, 12 Apr 2026 15:57:45 +0100 Subject: Enrich entities pipelining to provide scene context to processors --- entity.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'entity.scm') diff --git a/entity.scm b/entity.scm index 16d28c4..a655169 100644 --- a/entity.scm +++ b/entity.scm @@ -29,7 +29,7 @@ (define (entity-set-many entity pairs) (fold (lambda (pair working-ent) - (entity-set working-ent (car pair) (cdr pair))) + (entity-set working-ent (car pair) (if (list? (cdr pair)) (cadr pair) (cdr pair)))) entity pairs)) @@ -59,7 +59,7 @@ (name (car name-skip)) (skip (cadr name-skip)) (formals (caddr form)) - (f1 (car formals)) + (f1 (cadr formals)) (rest (cdddr form)) (has-guard? (and (pair? rest) (pair? (cdr rest)) (eq? (car rest) guard:))) -- cgit v1.2.3