From 506452654f09b087ecc006406a3154b7c0b69293 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 14 Dec 2018 17:50:29 -0500
Subject: [PATCH] Issue #286

---
 scheme/cyclone/transforms.sld | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index f69449b4..4868b644 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -177,9 +177,27 @@
   (else #f))
 
 ; symbol<? : symbol symobl -> boolean
-(define (symbol<? sym1 sym2)
-  (string<? (symbol->string sym1)
-            (symbol->string sym2)))
+;(define (symbol<? sym1 sym2)
+;  (string<? (symbol->string sym1)
+;            (symbol->string sym2)))
+
+(define-c symbol<?
+  "(void *data, int argc, closure _, object k, object sym1, object sym2)"
+  "
+     Cyc_check_sym(data, sym1);
+     Cyc_check_sym(data, sym2);
+     object result = (strcmp(symbol_desc(sym1), symbol_desc(sym2)) < 0) 
+                     ? boolean_t : boolean_f;
+     return_closcall1(data, k, result);
+  "
+  "(void *data, object ptr, object sym1, object sym2)"
+  " 
+     Cyc_check_sym(data, sym1);
+     Cyc_check_sym(data, sym2);
+     object result = (strcmp(symbol_desc(sym1), symbol_desc(sym2)) < 0) 
+                     ? boolean_t : boolean_f;
+     return result;
+  ")
 
 ; insert : symbol sorted-set[symbol] -> sorted-set[symbol]
 (define (insert sym S)