continuing to get the packager to work on regular files

NOTES

@@ -561,3 +561,8 @@ Let me list out, roughly, what's left for me to do do:
 
     Isolate performance issues.
 
+
+I've isolated exactly what primitives I need to get racket/base up and
+running.  It looks like I need 231 of them.  That's not that much,
+actually.  experiments/primitives-for-racket-base describes which ones
+we need.

experiments/primitives-for-racket-base.txt

@@ -0,0 +1,231 @@
+always-evt
+andmap
+arity-at-least
+arity-at-least-value
+arity-at-least?
+bound-identifier=?
+box?
+build-path
+byte-pregexp
+byte-pregexp?
+byte-regexp
+byte-regexp?
+bytes->string/utf-8
+bytes-append
+bytes-length
+bytes-ref
+bytes?
+caar
+call-with-continuation-prompt
+call-with-input-file
+call-with-output-file
+call/ec
+cdar
+cddr
+ceiling
+channel-put-evt
+channel?
+chaperone-of?
+chaperone-procedure
+chaperone-struct
+close-input-port
+close-output-port
+complete-path?
+continuation-mark-set-first
+continuation-prompt-available?
+current-directory
+current-eval
+current-input-port
+current-inspector
+current-load-relative-directory
+current-namespace
+current-output-port
+current-prompt-read
+date
+datum->syntax
+default-continuation-prompt-tag
+directory-exists?
+directory-list
+dynamic-wind
+eof
+eof-object?
+eqv?
+error
+error-value->string-handler
+even?
+exact->inexact
+exact-integer?
+exact-nonnegative-integer?
+exact?
+exn
+exn-message
+exn:break
+exn:break?
+exn:fail
+exn:fail:contract
+exn:fail:contract:arity
+exn:fail:contract:continuation
+exn:fail:contract:divide-by-zero
+exn:fail:contract:non-fixnum-result
+exn:fail:contract:variable
+exn:fail:filesystem
+exn:fail:filesystem:exists
+exn:fail:filesystem:version
+exn:fail:network
+exn:fail:out-of-memory
+exn:fail:read
+exn:fail:read:eof
+exn:fail:read:non-char
+exn:fail:syntax
+exn:fail:unsupported
+exn:fail:user
+exn:fail?
+expt
+flonum?
+floor
+format
+gensym
+get-output-bytes
+hash-iterate-first
+hash-iterate-key
+hash-iterate-next
+hash-iterate-value
+hash-ref
+hash-set
+hash-set!
+hash?
+immutable?
+impersonate-procedure
+impersonator-property?
+inexact->exact
+inexact?
+input-port?
+inspector?
+integer?
+keyword->string
+keyword?
+list-ref
+load
+load-extension
+make-bytes
+make-continuation-prompt-tag
+make-empty-namespace
+make-hash
+make-hasheq
+make-output-port
+make-string
+make-struct-field-accessor
+make-struct-field-mutator
+make-struct-type
+make-struct-type-property
+make-syntax-introducer
+make-thread-cell
+mcar
+mcdr
+memq
+min
+mpair?
+namespace-attach-module
+namespace-require
+namespace-syntax-introduce
+negative?
+number->string
+number?
+object-name
+open-input-file
+open-input-output-file
+open-output-bytes
+open-output-file
+ormap
+output-port?
+parameterization?
+path->bytes
+path->complete-path
+path->string
+path?
+positive?
+prefab-struct-key
+pregexp
+pregexp?
+procedure->method
+procedure-arity
+procedure-arity-includes?
+procedure-extract-target
+procedure-reduce-arity
+procedure-rename
+procedure?
+prop:arity-string
+prop:checked-procedure
+prop:evt
+prop:impersonator-of
+prop:procedure
+quotient
+raise-arity-error
+raise-mismatch-error
+raise-syntax-error
+read
+read-byte
+read-bytes
+read-bytes-avail!
+read-bytes-line
+read-char
+read-line
+real?
+regexp
+regexp-match
+regexp-match-peek-positions
+regexp-match-peek-positions/end
+regexp-match-positions
+regexp-match-positions/end
+regexp-match/end
+regexp-match?
+regexp-max-lookbehind
+regexp-replace
+regexp-replace*
+regexp?
+round
+split-path
+srcloc
+string->bytes/utf-8
+string->immutable-string
+string->number
+string->symbol
+string-ci<=?
+string-ci<?
+string-length
+string-ref
+string-set!
+string-utf-8-length
+string<=?
+string<?
+string?
+struct->vector
+struct-type?
+subbytes
+substring
+symbol?
+sync
+sync/timeout
+syntax->list
+syntax-e
+syntax-position
+syntax-property
+syntax-source
+syntax?
+unsafe-bytes-ref
+unsafe-fx+
+unsafe-fx-
+unsafe-fx<
+unsafe-fx<=
+unsafe-fx=
+unsafe-fxrshift
+unsafe-vector-ref
+unsafe-vector-set!
+variable-reference->empty-namespace
+variable-reference->namespace
+vector->immutable-vector
+vector?
+void
+with-input-from-file
+with-output-to-file
+zero?

js-assembler/assemble-helpers.rkt

@@ -223,7 +223,8 @@
    [(natural? an-arity)
     (format "~a" an-arity)]
    [(ArityAtLeast? an-arity)
-    (format "(new RUNTIME.ArityAtLeast(~a))" (ArityAtLeast-value an-arity))]
+    (format "(new RUNTIME.ArityAtLeast(~a))"
+            (ArityAtLeast-value an-arity))]
    [(listof-atomic-arity? an-arity)
     (assemble-listof-assembled-values
      (map
@@ -231,10 +232,9 @@
 	       (cond
 		[(natural? atomic-arity)
 		 (format "~a" an-arity)]
-		[(ArityAtLeast? an-arity)
+		[(ArityAtLeast? atomic-arity)
-		 (format "(new RUNTIME.ArityAtLeast(~a))" (ArityAtLeast-value an-arity))]
+		 (format "(new RUNTIME.ArityAtLeast(~a))"
-		;; Can't seem to make the type checker happy without this...
+                         (ArityAtLeast-value atomic-arity))]))
-		[else (error 'assemble-arity)]))
       an-arity))]))