From: Javier Sancho <jsf@jsancho.org>
Date: Thu, 9 Aug 2012 12:21:59 +0000 (+0200)
Subject: Changing things.
X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=c8318b7e07a61e6786249d5e56abd72e4cdc45f4;p=gacela.git

Changing things.
---

diff --git a/src/utils.scm b/src/utils.scm
index f2b339a..4a27f88 100644
--- 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)))
diff --git a/src/views.scm b/src/views.scm
index 32a7c3c..805a47d 100644
--- a/src/views.scm
+++ b/src/views.scm
@@ -90,6 +90,12 @@
       (mesh 'rotate 0 0 (car params)))
   mesh)
 
+
+;;; Primitives
+
+(define (basic proc)
+  ((@ (system vm program) program-lambda-list) proc))
+
 (define-macro (define-primitives . symbols)
   (cond ((null? symbols)
 	 `#t)