From 5e7d896a95efc74c95ebf4a4edab5cccf31be0bc Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 30 Apr 2020 22:56:24 -0400
Subject: [PATCH] Do not require TYPE arg of c-vlaue to be quoted in user code

---
 libs/cyclone/foreign.sld | 2 +-
 libs/test-foreign.scm    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/libs/cyclone/foreign.sld b/libs/cyclone/foreign.sld
index 7d82e001..7011e07e 100644
--- a/libs/cyclone/foreign.sld
+++ b/libs/cyclone/foreign.sld
@@ -34,7 +34,7 @@
           ;    (if (not (string? arg))
           ;        (error "c-value" "Invalid argument: string expected, received " arg)))
           ;  (cdr expr))
-          `((lambda () (Cyc-foreign-value ,code-arg ,type-arg)))))))
+          `((lambda () (Cyc-foreign-value ,code-arg (quote ,type-arg))))))))
 
   (define-syntax c-code
     (er-macro-transformer
diff --git a/libs/test-foreign.scm b/libs/test-foreign.scm
index 3635011f..861de539 100644
--- a/libs/test-foreign.scm
+++ b/libs/test-foreign.scm
@@ -12,7 +12,7 @@
 (define *my-global* #f)
 
 (test-group "foreign value"
-  (test 3 (c-value "1 + 2" 'integer))
+  (test 3 (c-value "1 + 2" integer))
 )
 
 (test-group "foreign code"