arc> (def 1+ (x) (+ x 1)) #<procedure: 1+> arc> (1+ 2) Error: "Function call on inappropriate object 1 (2)" arc> 1+ 1 arc> (def one-plus (x) (+ x 1)) #<procedure: one-plus> arc> (one-plus 2) 3
arc> (mac ++mod (n m (o d 1)) `(= ,n (mod (+ ,n ,d) ,m))) #3(tagged mac #<procedure>) arc> ++mod #<primitive:modulo> arc> (= x 1) 1 arc> (++mod x 5 10) Error: "modulo: expects 2 arguments, given 3: 1 5 10" arc> (mac inc-mod (n m (o d 1)) `(= ,n (mod (+ ,n ,d) ,m))) #3(tagged mac #<procedure>) arc> inc-mod #3(tagged mac #<procedure>) arc> (inc-mod x 5 10) 1
Only he can say for sure.
I've just substituted all my '+' names to 'up' and, in my mind, it's just as meaningful.
ie upmod or modup .....
-----