1
0
mirror of https://github.com/adambard/learnxinyminutes-docs.git synced 2025-08-14 02:34:17 +02:00

More comment fixes.

This commit is contained in:
Eli Barzilay
2013-07-16 01:29:37 -04:00
parent 6b282360b0
commit e8f8e2331b

View File

@@ -370,7 +370,7 @@ vec ; => #(1 2 3 4)
(show " | ~a | " n #\space)
(show "---~a---" n #\-))
(define (show fmt n ch) ;; internal function
(define (show fmt n ch) ; internal function
(printf fmt (make-string n ch))
(newline)))
@@ -388,9 +388,9 @@ vec ; => #(1 2 3 4)
(class object%
(init size) ; initialization argument
(super-new) ; superclass initialization
; Field
;; Field
(define current-size size)
; Public methods
;; Public methods
(define/public (get-size) current-size)
(define/public (grow amt) (set! current-size (+ amt current-size)))
(define/public (eat other-fish) (grow (send other-fish get-size)))))