Merge remote-tracking branch 'origin/main'

Author: jmct

langs/outlaw/utils.rkt

@@ -10,19 +10,21 @@
 (define (symbol->data-label s)
   (to-label "data_" s))
 
+;; Char -> String
+(define (char-encode c)
+  (if (or (char<=? #\a c #\z)
+          (char<=? #\A c #\Z)
+          (char<=? #\0 c #\9)
+          (memq c '(#\_ #;#\$ #\# #\@ #\~ #\. #\?)))
+      (make-string 1 c)
+      (string-append "$" (number->string (char->integer c) 16))))
+
 (define (to-label prefix s)
   (string->symbol
-   (string-append
-    prefix
-    (apply string-append
-           (map (λ (c)
-                  (if (or (char<=? #\a c #\z)
-                          (char<=? #\A c #\Z)
-                          (char<=? #\0 c #\9)
-                          (memq c '(#\_ #;#\$ #\# #\@ #\~ #\. #\?)))
-                      (make-string 1 c)
-                      (string-append "$" (number->string (char->integer c) 16))))
-                (string->list (symbol->string s)))))))
+   (string-append prefix
+                  (apply string-append
+                         (map char-encode
+                              (string->list (symbol->string s)))))))
 
 ;; Id CEnv -> [Maybe Integer]
 (define (lookup x cenv)

www/assignments/2.scrbl

@@ -1,7 +1,7 @@
 #lang scribble/manual
 @title[#:tag "Assignment 2" #:style 'unnumbered]{Assignment 2: Racket Primer}
 
-@bold{Due: Tuesday, September 14, 11:59PM}
+@bold{Due: Thursday, February 10, 11:59PM}
 
 The goal of this assignment is to gain practice programming in Racket.
 

www/defns.rkt

@@ -23,7 +23,7 @@
 
 (define staff
   (list (list "Maniktala Dhruv" "dmanikt@umd.edu" "M/Tu 15:30-16:30 AVW 4160")
-        (list "Benjamin Glover Quiring" "bquiring@umd.edu" "W 14:00-16:00 AVW 4160")
+        (list "Benjamin Glover Quiring" "bquiring@umd.edu" "W 16:30-18:30 AVW 4160")
         (list "William Chung" "wchung1@terpmail.umd.edu" "Thu 14:00-16:00 AVW 4160")))
 
 (define lecture-schedule "Tuesday & Thursday, 9:30am - 10:45pm, IRB 0318")