Artifact 87cb31ee209ada74e7c07c2b7a85f98f9ec57854:

• File fmt/js.sls — part of check-in [cd7a31d87b] at 2017-05-03 18:01:41 on branch trunk — many fixes to usb.sls (user: aldo size: 388)

0000: 3b 3b 3b 3b 20 66 6d 74 2d 6a 73 2e 73 63 6d 20  ;;;; fmt-js.scm 
0010: 2d 2d 20 6a 61 76 61 73 63 72 69 70 74 20 66 6f  -- javascript fo
0020: 72 6d 61 74 74 69 6e 67 20 75 74 69 6c 69 74 69  rmatting utiliti
0030: 65 73 0a 3b 3b 0a 3b 3b 20 43 6f 70 79 72 69 67  es.;;.;; Copyrig
0040: 68 74 20 28 63 29 20 32 30 31 31 2d 32 30 31 32  ht (c) 2011-2012
0050: 20 41 6c 65 78 20 53 68 69 6e 6e 2e 20 20 41 6c   Alex Shinn.  Al
0060: 6c 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65  l rights reserve
0070: 64 2e 0a 3b 3b 20 42 53 44 2d 73 74 79 6c 65 20  d..;; BSD-style 
0080: 6c 69 63 65 6e 73 65 3a 20 68 74 74 70 3a 2f 2f  license: http://
0090: 73 79 6e 74 68 63 6f 64 65 2e 63 6f 6d 2f 6c 69  synthcode.com/li
00a0: 63 65 6e 73 65 2e 74 78 74 0a 0a 23 21 72 36 72  cense.txt..#!r6r
00b0: 73 0a 28 6c 69 62 72 61 72 79 20 0a 20 28 66 6d  s.(library . (fm
00c0: 74 20 6a 73 29 0a 20 28 65 78 70 6f 72 74 0a 20  t js). (export. 
00d0: 20 6a 73 2d 65 78 70 72 20 6a 73 2d 66 75 6e 63   js-expr js-func
00e0: 74 69 6f 6e 20 6a 73 2d 76 61 72 20 6a 73 2d 63  tion js-var js-c
00f0: 6f 6d 6d 65 6e 74 20 6a 73 2d 61 72 72 61 79 20  omment js-array 
0100: 6a 73 2d 6f 62 6a 65 63 74 20 6a 73 3d 3d 3d 20  js-object js=== 
0110: 6a 73 3e 3e 3e 29 0a 20 0a 20 28 69 6d 70 6f 72  js>>>). . (impor
0120: 74 20 28 63 68 65 7a 73 63 68 65 6d 65 29 0a 09  t (chezscheme)..
0130: 20 28 66 6d 74 20 66 6d 74 29 20 28 66 6d 74 20   (fmt fmt) (fmt 
0140: 63 29 0a 09 20 28 73 72 66 69 20 70 72 69 76 61  c).. (srfi priva
0150: 74 65 20 69 6e 63 6c 75 64 65 29 29 0a 20 0a 20  te include)). . 
0160: 28 69 6e 63 6c 75 64 65 20 28 22 66 6d 74 22 29  (include ("fmt")
0170: 20 22 66 6d 74 2d 6a 73 2e 73 63 6d 22 29 0a 20   "fmt-js.scm"). 
0180: 0a 20 29 0a                                      . ).