Ticket #1754: 0001-Use-eval-decorator-from-C5.patch

File 0001-Use-eval-decorator-from-C5.patch, 906 bytes (added by Vasilij Schneidermann, 2 years ago)

  • sandbox.scm 

    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  
    223223          x2) ) )
    224224
    225225  (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) ) )
    227237
    228238  (define (compile x e h)
    229239    (check-point fuel/compile)