Versión original en Racket de dec->hex.

dec-hex.rkt

;; -*- coding: utf-8; mode: Scheme -*-
#lang racket

(provide dec->hex)

(define (dec->hex num)
  (let ((base 16)
        (cifras-hex "0123456789ABCDEF"))

    (do ((cantidad num (quotient cantidad base))
         (retval '() (cons (string-ref cifras-hex 
                                       (remainder cantidad base))
                           retval)))
        ((= cantidad 0) 
         (if (null? retval) "0" (list->string retval))) )))

Esta es la primera versión tal y como estaba escrita originalmente

Después de refactorizar y quitar todas las asignaciones set! quedó así