From 07dc0698c1965ff29411b3f325634dd4c00c3ebc Mon Sep 17 00:00:00 2001
From: Vasilij Schneidermann <mail@vasilij.de>
Date: Mon, 4 Apr 2022 16:50:57 +0200
Subject: [PATCH] Use eval-decorator from C5
---
sandbox.scm | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/sandbox.scm b/sandbox.scm
index eda2d32..113b85f 100644
a
|
b
|
|
223 | 223 | x2) ) ) |
224 | 224 | |
225 | 225 | (define (decorate p ll h) |
226 | | (##sys#eval-decorator p ll h #f) ) |
| 226 | (##sys#decorate-lambda |
| 227 | p |
| 228 | (lambda (x) (and (not (##sys#immediate? x)) (##core#inline "C_lambdainfop" x))) |
| 229 | (lambda (p i) |
| 230 | (##sys#setslot |
| 231 | p i |
| 232 | (##sys#make-lambda-info |
| 233 | (let ((o (open-output-string))) |
| 234 | (write ll o) |
| 235 | (get-output-string o)))) |
| 236 | p) ) ) |
227 | 237 | |
228 | 238 | (define (compile x e h) |
229 | 239 | (check-point fuel/compile) |