Text only | Text with Images

newLISP Fan Club

Forum => newLISP in the real world => Topic started by: HPW on March 26, 2005, 08:49:48 AM

Title: Strange infix behaviour
Post by: HPW on March 26, 2005, 08:49:48 AM
What is returned from infix:
Code Select

> (INFIX:xlate "3 + 4")
(add 3 4)
> (eval(INFIX:xlate "3 + 4"))

value expected in function add : 3

> (integer?(nth 1 (INFIX:xlate "3 + 4")))
nil
> (float?(nth 1 (INFIX:xlate "3 + 4")))
nil
> (string?(nth 1 (INFIX:xlate "3 + 4")))
nil


What this?
Title:
Post by: HPW on March 26, 2005, 09:07:53 AM
More strange:


Code Select

> (symbol?(nth 1 (INFIX:xlate "3 + 4")))
true
Title:
Post by: HPW on March 26, 2005, 09:14:10 AM
Sequential rollback until 8.200:



There it was working:


Code Select

> (INFIX:xlate "3 + 4")
(add 3 4)
> (eval(INFIX:xlate "3 + 4"))
7
>


Seems context related.



Ps: infix.lsp from 8.2 and 8.4.7 are identical.
Title:
Post by: Lutz on March 26, 2005, 10:07:50 AM
After 8.2 newLISP is able to make a symbol out of number and that changes the logic in the function 'make-expresion'. Make the following change:


Code Select


;; in make-expresion change

            (if (not (or (set 'var (symbol vars))
                         (set 'var (float vars)) ))

;; to this

            (if (not (or (set 'var (float vars))
                         (set 'var (symbol vars)) ))



Lutz



ps: I uploaded a fixed version also to http://newlisp.org/index.cgi?page=Downloads
Title:
Post by: HPW on March 26, 2005, 11:37:07 AM
Lutz,



thanks for the quick fix!

I need the infix-parser much for my project.
Text only | Text with Images