Source_file *source_file_;
public:
static const char type_p_name_[];
- int print_smob (SCM, scm_print_state *);
+ int print_smob (SCM, scm_print_state *) const;
static SCM equal_p (SCM, SCM);
- SCM mark_smob ();
+ SCM mark_smob () const;
Source_file *get_source_file () const;
char const *start () const;
char const *end () const;
extern Input dummy_input_global;
+// The parser calls syntax functions with a lot of arguments
+SCM with_location (SCM loc, SCM proc);
+SCM with_location (SCM loc, SCM proc, SCM);
+SCM with_location (SCM loc, SCM proc, SCM, SCM);
+SCM with_location (SCM loc, SCM proc, SCM, SCM, SCM);
+SCM with_location (SCM loc, SCM proc, SCM, SCM, SCM, SCM);
+SCM with_location (SCM loc, SCM proc, SCM, SCM, SCM, SCM, SCM);
+
#endif // INPUT_HH