ojarjur

<!--
Copyright (C) 2008 Omar Jarjur. All rights reserved.

Licensed under the Apache License, Version 2.0 (the "License");
you may not use this file except in compliance with the License.
You may obtain a copy of the License at

    http://www.apache.org/licenses/LICENSE-2.0

Unless required by applicable law or agreed to in writing, software

ojarjur

Keybase proof

I hereby claim:

• I am ojarjur on github.
• I am ojarjur (https://keybase.io/ojarjur) on keybase.
• I have a public key ASAha6hqWuG5Iwf0DKWCf3QTAjhy1Mfr2g4SMBA8Nu011go

To claim this, I am signing this object:

ojarjur

(load "~/losak/lsk-mode.el")
(defun my-scheme-mode-hook ()
  "Custom hook for Scheme mode"
  (setq indent-tabs-mode nil))
(custom-set-variables
  ;; custom-set-variables was added by Custom.                                                                                                               
  ;; If you edit it by hand, you could mess it up, so be careful.                                                                                            
  ;; Your init file should contain only one such instance.                                                                                                   
  ;; If there is more than one, they won't work right.                                                                                                       
 '(gud-gdb-command-name "gdb --annotate=1")

ojarjur

(define (cps expr)
  (define (cps-arg arg)
    (if (and (pair? arg) (not (eq? (car arg) 'lambda)))
        `(let ((pending? #t)
               (arg-val '<undefined>))
           (lambda (k)
             (if pending?
                 ,(cps-nested arg
                              (lambda (arg-code)
                                `(begin (set! pending? #f)

ojarjur

(use-modules (ice-9 pretty-print))

;; Helper methods for maintaining comments and whitespace.
(define (copy-line-comment)
  (let ((char (read-char)))
    (if (not (eof-object? char))
      (if (eq? char #\newline)
        (newline)
        (begin (write-char char) (copy-line-comment))))))
(define (maintain-empty-lines)