[bitc-dev] Code for bitc_vector_string

[Sam Mason]

On Tue, Jul 04, 2006 at 01:38:37AM +0100, Sam Mason wrote:
> Not sure if this is the same bug, but I've included the code (not very amazing code, but I think it's correct) it chokes on + stdout+err.

Spot the fact it's past my bed time. . .  Here's a chopped down, probably
slightly more testable version.  It fails with the same (to me) error.
I've also just done an rsync and rebuilt the compiler with no effect.


  Sam
-------------- next part --------------
(bitc-version "0.10")
(provide main bitc.main)

(define (null l:(list 'a))
  (switch l l
    (nil #t)
    (cons #f)))

(define (main.main argVec:(vector string))
  (if (null nil)
      "null"
      "not null")
  (the int32 0))