Changing things.

[gacela.git] / src / utils.scm

diff --git a/src/utils.scm b/src/utils.scm
index f2b339aa18ebbbfe365490ec59037f12dd3bb697..4a27f88706c30e146dd7397c842699784b930601 100644 (file)
--- a/src/utils.scm
+++ b/src/utils.scm
@@ -17,8 +17,7 @@
 
 (define-module (gacela utils)
   #:use-module (ice-9 session)
-  #:export (use-cache-with
-           procedure-header))
+  #:export (use-cache-with))
 
 
 ;;; Cache for procedures
@@ -32,11 +31,3 @@
               (set! res (apply proc param))
               (hash-set! cache key res)
               res))))))
-
-
-;;; Retrive header definition of a procedure
- (define (procedure-header proc)
-   (let* ((args (procedure-arguments proc))
-        (name (procedure-name proc))
-        (required (cdar args)))
-     (cons name required)))