This is the mail archive of the kawa@sourceware.cygnus.com mailing list for the Kawa project. See the Kawa home page for more information.
Hi everybody ! I wrote this source: --------/ eval.scm (define (eval-new exp) (cond ((eq? (car exp) 'connect) (connect (cdr exp))) (else ""))) (define (connect exp) (define user #f) (define pass #f) (if (eq? (car exp) 'user) (begin (set! user (cadr exp)) (set! exp (cddr exp)))) (if (eq? (car exp) 'pass) (set! pass (cadr exp))) (list->string (list user pass))) ---------/ I compiled it with: java kawa.repl -C eval.scm I used it in Kawa 1.6.55 , but...: #|kawa:1|# (load "eval") #|kawa:2|# eval-new #<procedure eval-new> #|kawa:3|# (eval-new '(connect user pippo pass pluto)) java.lang.RuntimeException: apply not implemented for PrimProcedure - java.lang.reflect.InvocationTargetException at gnu.expr.PrimProcedure.applyN(PrimProcedure.java:73) at gnu.expr.ApplyExp.eval(ApplyExp.java:36) at gnu.expr.ModuleExp.evalModule(ModuleExp.java:31) at kawa.Shell.run(Shell.java:102) at kawa.Shell.run(Shell.java:64) at kawa.repl.main(repl.java:186) #|kawa:4|# Thank you for your help ! -- Daniele Maraschi mailto:maraschi@mediatech.didael.it ---------------------------------------------------------- Mediatech http://mediatech.didael.it 6° Strada Ovest, Loc. Macchiareddu, 09010 Uta (CA), Italy Tel: (+39) 070 2466 5010 Fax: (+39) 070 2466 1111