@@ -134,7 +134,7 @@ function sc_rempropBang(sym, key) {
134
134
/*** META ((export #t)) */
135
135
function sc_any2String ( o ) {
136
136
return jsstring2string ( sc_toDisplayString ( o ) ) ;
137
- }
137
+ }
138
138
139
139
/*** META ((export #t)
140
140
(peephole (infix 2 2 "==="))
@@ -923,7 +923,7 @@ function sc_dualAppendBang(l1, l2) {
923
923
tmp . cdr = l2 ;
924
924
return l1 ;
925
925
}
926
-
926
+
927
927
/*** META ((export #t)) */
928
928
function sc_appendBang ( ) {
929
929
var res = null ;
@@ -1163,7 +1163,7 @@ sc_Char.readable2char = {
1163
1163
"us" : "\037" ,
1164
1164
"sp" : "\040" ,
1165
1165
"del" : "\177" } ;
1166
-
1166
+
1167
1167
sc_Char . prototype . toString = function ( ) {
1168
1168
return this . val ;
1169
1169
} ;
@@ -1533,7 +1533,7 @@ function sc_mapBang(proc, l1) {
1533
1533
}
1534
1534
return l1_orig ;
1535
1535
}
1536
-
1536
+
1537
1537
/*** META ((export #t)) */
1538
1538
function sc_forEach ( proc , l1 ) {
1539
1539
if ( l1 === undefined )
@@ -1871,7 +1871,7 @@ function sc_jsNew(c) {
1871
1871
evalStr += ", arguments[" + i + "]" ;
1872
1872
evalStr += ")" ;
1873
1873
return eval ( evalStr ) ;
1874
- }
1874
+ }
1875
1875
1876
1876
// ======================== RegExp ====================
1877
1877
/*** META ((export #t)) */
@@ -1883,9 +1883,9 @@ function sc_pregexp(re) {
1883
1883
function sc_pregexpMatch ( re , s ) {
1884
1884
var reg = ( re instanceof RegExp ) ? re : sc_pregexp ( re ) ;
1885
1885
var tmp = reg . exec ( sc_string2jsstring ( s ) ) ;
1886
-
1886
+
1887
1887
if ( tmp == null ) return false ;
1888
-
1888
+
1889
1889
var res = null ;
1890
1890
for ( var i = tmp . length - 1 ; i >= 0 ; i -- ) {
1891
1891
if ( tmp [ i ] !== null ) {
@@ -1896,7 +1896,7 @@ function sc_pregexpMatch(re, s) {
1896
1896
}
1897
1897
return res ;
1898
1898
}
1899
-
1899
+
1900
1900
/*** META ((export #t)) */
1901
1901
function sc_pregexpReplace ( re , s1 , s2 ) {
1902
1902
var reg ;
@@ -1914,7 +1914,7 @@ function sc_pregexpReplace(re, s1, s2) {
1914
1914
1915
1915
return jss1 . replace ( reg , jss2 ) ;
1916
1916
}
1917
-
1917
+
1918
1918
/*** META ((export pregexp-replace*)) */
1919
1919
function sc_pregexpReplaceAll ( re , s1 , s2 ) {
1920
1920
var reg ;
@@ -1945,7 +1945,7 @@ function sc_pregexpSplit(re, s) {
1945
1945
1946
1946
return sc_vector2list ( tmp ) ;
1947
1947
}
1948
-
1948
+
1949
1949
1950
1950
/* =========================================================================== */
1951
1951
/* Other library stuff */
@@ -2136,7 +2136,7 @@ sc_ErrorInputPort.prototype.getNextChar = function() {
2136
2136
sc_ErrorInputPort . prototype . isCharReady = function ( ) {
2137
2137
return false ;
2138
2138
} ;
2139
-
2139
+
2140
2140
2141
2141
/* .............. String port ..........................*/
2142
2142
@@ -2200,7 +2200,7 @@ sc_Tokenizer.prototype.readToken = function() {
2200
2200
} ;
2201
2201
sc_Tokenizer . prototype . nextToken = function ( ) {
2202
2202
var port = this . port ;
2203
-
2203
+
2204
2204
function isNumberChar ( c ) {
2205
2205
return ( c >= "0" && c <= "9" ) ;
2206
2206
} ;
@@ -2280,7 +2280,7 @@ sc_Tokenizer.prototype.nextToken = function() {
2280
2280
else
2281
2281
return new sc_Token ( 12 /*NUMBER*/ , res - 0 ) ;
2282
2282
} ;
2283
-
2283
+
2284
2284
function skipWhitespaceAndComments ( ) {
2285
2285
var done = false ;
2286
2286
while ( ! done ) {
@@ -2299,7 +2299,7 @@ sc_Tokenizer.prototype.nextToken = function() {
2299
2299
}
2300
2300
}
2301
2301
} ;
2302
-
2302
+
2303
2303
function readDot ( ) {
2304
2304
if ( isWhitespace ( port . peekChar ( ) ) )
2305
2305
return new sc_Token ( 10 /*DOT*/ ) ;
@@ -2429,7 +2429,7 @@ sc_Reader.prototype.read = function() {
2429
2429
2430
2430
while ( true ) {
2431
2431
var token = tokenizer . peekToken ( ) ;
2432
-
2432
+
2433
2433
switch ( token . type ) {
2434
2434
case 2 /*CLOSE_PAR*/ :
2435
2435
case 4 /*CLOSE_BRACE*/ :
@@ -2491,15 +2491,15 @@ sc_Reader.prototype.read = function() {
2491
2491
else
2492
2492
throw "bad reference: " + nb ;
2493
2493
} ;
2494
-
2494
+
2495
2495
var tokenizer = this . tokenizer ;
2496
2496
2497
2497
var token = tokenizer . readToken ( ) ;
2498
2498
2499
2499
// handle error
2500
2500
if ( token . type === 13 /*ERROR*/ )
2501
2501
throw token . val ;
2502
-
2502
+
2503
2503
switch ( token . type ) {
2504
2504
case 1 /*OPEN_PAR*/ :
2505
2505
case 3 /*OPEN_BRACE*/ :
@@ -2550,7 +2550,7 @@ function sc_peekChar(port) {
2550
2550
port = SC_DEFAULT_IN ; // THREAD: shared var...
2551
2551
var t = port . peekChar ( ) ;
2552
2552
return t === SC_EOF_OBJECT ? t : new sc_Char ( t ) ;
2553
- }
2553
+ }
2554
2554
/*** META ((export #t)
2555
2555
(type bool))
2556
2556
*/
@@ -2722,7 +2722,7 @@ sc_StringOutputPort.prototype.close = function() {
2722
2722
function sc_getOutputString ( sp ) {
2723
2723
return sc_jsstring2string ( sp . res ) ;
2724
2724
}
2725
-
2725
+
2726
2726
2727
2727
function sc_ErrorOutputPort ( ) {
2728
2728
}
@@ -2852,7 +2852,7 @@ function sc_newline(p) {
2852
2852
p = SC_DEFAULT_OUT ;
2853
2853
p . appendJSString ( "\n" ) ;
2854
2854
}
2855
-
2855
+
2856
2856
/* ------------------ write-char ---------------------------------------------------*/
2857
2857
2858
2858
/*** META ((export #t)) */
@@ -2927,7 +2927,7 @@ sc_Pair.prototype.sc_toWriteCircleString = function(symb, inList) {
2927
2927
}
2928
2928
2929
2929
var res = "" ;
2930
-
2930
+
2931
2931
if ( this [ symb ] !== undefined ) { // implies > 0
2932
2932
this [ symb + "use" ] = true ;
2933
2933
if ( inList )
@@ -2939,10 +2939,10 @@ sc_Pair.prototype.sc_toWriteCircleString = function(symb, inList) {
2939
2939
2940
2940
if ( ! inList )
2941
2941
res += "(" ;
2942
-
2942
+
2943
2943
// print car
2944
2944
res += sc_genToWriteCircleString ( this . car , symb ) ;
2945
-
2945
+
2946
2946
if ( sc_isPair ( this . cdr ) ) {
2947
2947
res += " " + this . cdr . sc_toWriteCircleString ( symb , true ) ;
2948
2948
} else if ( this . cdr !== null ) {
@@ -3072,7 +3072,7 @@ function sc_format(s, args) {
3072
3072
p . appendJSString ( arguments [ j ] . toString ( 2 ) ) ;
3073
3073
i += 2 ; j ++ ;
3074
3074
break ;
3075
-
3075
+
3076
3076
case 37 :
3077
3077
case 110 :
3078
3078
// %, n
@@ -3186,7 +3186,7 @@ function sc_isEqual(o1, o2) {
3186
3186
function sc_number2symbol ( x , radix ) {
3187
3187
return sc_SYMBOL_PREFIX + sc_number2jsstring ( x , radix ) ;
3188
3188
}
3189
-
3189
+
3190
3190
/*** META ((export number->string integer->string)) */
3191
3191
var sc_number2string = sc_number2jsstring ;
3192
3192
0 commit comments