From 49531e95cef82cc0159982cdd7d0094b78b9364c Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Mon, 25 Mar 2019 16:31:14 -0300 Subject: [PATCH] fix make-guardian primitive expansion original commit: 24fb50d6e35d01c685a691868f4518358e923ddb --- s/prims.ss | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/s/prims.ss b/s/prims.ss index 12f1deb9c8..b7f632a17c 100644 --- a/s/prims.ss +++ b/s/prims.ss @@ -1490,7 +1490,9 @@ (lambda (ftd obj) ($oops 'ftype-guardian "~s is not an ftype pointer of the expected type ~s" obj ftd))) -(define make-guardian (lambda () (#2%make-guardian))) +(define make-guardian (case-lambda + [() (#2%make-guardian)] + [(o) (#2%make-guardian o)])) (define $make-ftype-guardian (lambda (ftd) (#2%$make-ftype-guardian ftd)))