opcodes port instructions in cgen.info yield "unbound variable: opc-file-path "

[Alan Lehotsky]

I've done two cgen machines (but it's been years since the last time I  
worked with this.

I've really tried hard to exactly follow the steps in Section 5.5 of  
the cgen.info file.

I tried Fche's suggestion of doing a (set! .... ), and had no  
success.    There are at least 3-4
people who've encountered this problem (as far back as 2002) and I  
don't see any indication in
the mailing-list archives that a solution has been posted...

- I've got a TARGET.cpu and TARGET.opc file.
- I've done

       cd src/cgen
       guile
       guile> (load "dev.scm")
       guile> (load-opc)
       guile> (cload #:arch "TARGET")
       ......								;; no errors or warnings here
       guile> (cgen-asm.in)

(cgen-asm.in)
Generating atdsp-asm.in ...


Backtrace:
In ./opc-asmdis.scm:
   89:  0* (opc-file-path)
   89:  1  [gen-extra-asm.c ...
In ./utils.scm:
  414:  2* [#<procedure #f ()>]
  414:  3  [-string-write #(print-state 0) ...
  412:  4* (cond ((string? expr) (display expr)) ((symbol? expr)  
(display expr)) ...)
  403:  5* [-string-write #(print-state 0) #<procedure #f ()>]
In unknown file:
    ?:  6* [#<procedure #f (elm)> #<procedure #f ()>]
In ./utils.scm:
  403:  7* [for-each #<procedure #f (elm)> ("
" #<procedure #f ()> "
" ...)]
  401:  8  (let* ((pstate (make-print-state))) (set! -current-print- 
state pstate) ...)
In ./opc-asmdis.scm:
   86:  9  [string-write "
" #<procedure #f ()> ...]
In standard input:
    5: 10* [cgen-asm.in]

./opc-asmdis.scm:89:32: In expression (opc-file-path):
./opc-asmdis.scm:89:32: Unbound variable: opc-file-path
ABORT: (unbound-variable)


I get that unbound variable complaint for ALL the file generation