make bootfiles

original commit: 6cc34ce91d27914b2d5cb49ad53895c68adcbd83
This commit is contained in:
Matthew Flatt 2018-07-16 19:34:41 -06:00
parent bda3657ad7
commit b6a71f1cf9

View File

@ -13,13 +13,6 @@
;;; See the License for the specific language governing permissions and
;;; limitations under the License.
(define ($make-arity-wrapper-procedure proc mask) proc)
(define generate-procedure-source-information
(case-lambda
[() #f]
[(v) (void)]))
(define current-generate-id (make-parameter (lambda (s) (gensym (symbol->string s)))))
(printf "loading ~s cross compiler~%" (constant machine-type-name))
; (current-expand (lambda args (apply sc-expand args)))