Mercurial > urweb
comparison tests/hog.ur @ 1334:a1aa62b472cf
Change Basis.debug to use the protocol's debug function
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 12 Dec 2010 10:35:04 -0500 |
parents | d2ad997ca157 |
children |
comparison
equal
deleted
inserted
replaced
1333:dab85a49e0ab | 1334:a1aa62b472cf |
---|---|
2 if n <= 0 then | 2 if n <= 0 then |
3 "!" | 3 "!" |
4 else | 4 else |
5 more (n-1) ^ more (n-1) | 5 more (n-1) ^ more (n-1) |
6 | 6 |
7 fun main n = return <xml>{[more n]}</xml> | 7 fun main n = |
8 debug "Let's give this a try...."; | |
9 return <xml>{[more n]}</xml> |