Something like:
Code: Select all
(define (inc-p symb num)
(let (old (eval symb))
(if num (inc symb num) (inc symb))
old))
> (setq i 2)
2
> (inc-p 'i)
2
> i
3
Code: Select all
(define (inc-p symb num)
(let (old (eval symb))
(if num (inc symb num) (inc symb))
old))
> (setq i 2)
2
> (inc-p 'i)
2
> i
3