Ironscheme fixes (#71)

* Fixes for IronScheme

* Update gitignore for dotnet and nuget stuff

* Update README.org

* Update README.org

Add note about IronScheme version

* Fix import

.gitignore

@@ -2,3 +2,6 @@
 .mosh
 .cache
 outputs
+
+.dotnet
+.local/share/NuGet

README.org

@@ -18,7 +18,7 @@ Schemes that should work:
 - [[http://gambitscheme.org/wiki/index.php/Main_Page][GambitC]] (=gambitc=)
 - [[http://practical-scheme.net/gauche/][Gauche]] (=gauche=)
 - [[http://www.gnu.org/software/guile/][Guile]] (=guile=)
-- [[https://github.com/leppie/IronScheme][IronScheme]] (=ironscheme=)
+- [[https://github.com/IronScheme/IronScheme][IronScheme]] (=ironscheme=)
 - [[http://www.gnu.org/software/kawa/][Kawa]] (=kawa=)
 - [[http://www.larcenists.org/][Larceny]] (=larceny=)
 - [[https://scheme.fail/][Loko]] (=loko=)
@@ -76,16 +76,15 @@ sudo raco pkg install --scope installation r7rs
 #+END_SRC
 
 *** IronScheme
-Precompile system libraries (optional). It is still going to be slow.
-#+BEGIN_SRC
-echo "(compile-system-libraries)" | mono IronScheme.Console-v4.exe
-#+END_SRC
+Install the latest version of .NET Runtime (currently 9.0-preview, requires at least IronScheme 1.0.357) from https://dotnet.microsoft.com/en-us/download/dotnet .
+
 The default binary for IronScheme (can be changed by exporting IRONSCHEME in your shell before running bench) is called =ironscheme=.
 
 If you unpack IronScheme in your home, you can create a shell script like the following:
 #+BEGIN_SRC
 #!/bin/bash
-mono ~/IronScheme/IronScheme.Console-v4.exe -nologo -emacs $*
+export DOTNET_CLI_TELEMETRY_OPTOUT=1
+dotnet ~/IronScheme/IronScheme.ConsoleCore.dll $*
 #+END_SRC
 and put that somewhere in your =$PATH=.
 *** Stalin

bench

@@ -632,7 +632,6 @@ ironscheme_exec ()
  sed -i -e 's/^(define (bitwise-and[[:blank:]].*).*$/#;(excluded/g' $1
  sed -i -e 's/^(define (div[[:blank:]].*).*$/#;(excluded/g' $1
  sed -i -e 's/^(define (mod[[:blank:]].*).*$/#;(excluded/g' $1
- sed -i -e 's/^(define (partition[[:blank:]].*).*$/#;(excluded/g' $1
 
  # R6RS compat failure: gcbench
  # failures due to Mono: cpstak, fft, pi, pnpoly, quicksort

inputs/matrix.input

@@ -11,4 +11,4 @@
  ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1)
  (1 1 -1 1 1) (1 -1 1 1 -1) (1 -1 -1 -1 1))
  ((1 1 1 1 1) (1 1 1 1 -1) (1 1 1 -1 1)
- (1 1 -1 1 1) (1 -1 1 1 1) (1 -1 -1 -1 -1)))))
+ (1 1 -1 1 1) (1 -1 1 1 1) (1 -1 -1 -1 -1)))

src/IronScheme-prelude.scm

@@ -1,4 +1,26 @@
-(import (except (ironscheme) time) (srfi :19) (srfi :112))
+(import 
+ (except (ironscheme) time define-record-type partition)
+ (rename (only (ironscheme) define-record-type) (define-record-type r6rs:define-record-type))
+ (srfi :19) 
+ (srfi :112))
+
+(define-syntax define-record-type
+ ;; Simplistic R7RS to R6RS define-record-type transformation.
+ (syntax-rules ()
+ ((define-record-type name
+ (make-name param ...)
+ name?
+ (field-name field-ref field-set!)
+ ...)
+ (r6rs:define-record-type (name make-name name?)
+ (protocol
+ (lambda (new)
+ (lambda (param ...)
+ (new param ...))))
+ (fields
+ (mutable field-name field-ref field-set!)
+ ...)))))
+
 (define (exact-integer? i)
  (and (integer? i) (exact? i)))
 (define (square x)