*** empty log message ***

prototypes.h

@@ -984,7 +984,7 @@ void test_transpose(void);
 
 // userfunc.cpp
 void eval_user_function(void);
-void resolve(void);
+void rewrite(void);
 void test_user_func(void);
 
 // variables.cpp

userfunc.cpp

@@ -104,6 +104,8 @@ rewrite(void)
 		return;
 	}
 
+	// Try for an argument substitution first
+
 	p2 = S;
 	while (iscons(p2)) {
 		if (p1 == car(p2)) {
@@ -114,6 +116,8 @@ rewrite(void)
 		p2 = cddr(p2);
 	}
 
+	// Get the symbol's binding, try again
+
 	p2 = get_binding(p1);
 	push(p2);
 	if (p1 != p2)