From 465a587c2b503b9716dac06a1fc4d58e69634e73 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Thu, 30 Jun 2022 20:11:37 -0700
Subject: Add a function for getting the gensym ID.

---
 csc/gensym.csc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'csc/gensym.csc')

diff --git a/csc/gensym.csc b/csc/gensym.csc
index a7c30c5..252f77c 100644
--- a/csc/gensym.csc
+++ b/csc/gensym.csc
@@ -1,6 +1,7 @@
 (define-library (csc gensym)
   (export
     gensym
+    gensym->int
     gensym=?)
   (import (scheme base))
   (begin
@@ -9,11 +10,11 @@
     (define-record-type <gensym>
       (make-gensym id)
       gensym?
-      (id gensym-id))
+      (id gensym->int))
 
 
     (define (gensym=? s1 s2)
-      (= (gensym-id s1) (gensym-id s2)))
+      (= (gensym->int s1) (gensym->int s2)))
 
 
     (define *next-id* 0)
-- 
cgit v1.3.1